;PROCEDURE HALT(message: S$255);
;
;USE THIS PROCEDURE ONLY FOR FATAL ERROS OR TOTAL
;DISASTERS. NO FILES WILL BE CLOSED. RETURN IS TO THE
;CP/M CCP.
;
;DECLARE IN YOUR PASCAL PROGRAM AS:
;TYPE	S$255 = STRING 255;
;	PROCEDURE HALT(MESSAGE:S$255);EXTERNAL;
;
;CALL AS:
;	HALT('Halted in procedure X');
;
	NAME HALT
	ENTRY HALT
;begin
HALT:
	ENTR	D,2,0
;  writeln(message);
	LXI	H,1793
	PUSH	H
	LXI	B,256
	PUSH	B
	LXI	H,-256
	DADD	S
	SPHL
	XCHG
	PUSH	IX
	POP	H
	LXI	B,8
	DADD	B
	LXI	B,256
	LDIR
	LXI	B,260
	CALL	L109
;(*
	mvi c,0 ;CP/M code to restart
	call 5	;There is NO return from this call!
;*)
;end;
	EXIT	D,256
